home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1985 Fall
/
rerun-1985-fall.d64
/
home run derby
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
6KB
|
117 lines
10 dimj(26),js(26):fort=16to26:readj(t),js(t):next
15 poke53281,5:print"[154][147]","[144] control pitches y/n?":jj=49192:jv=56321
20 getp$:ifp$=""then20
25 poke53281,0:poke53280,0:print,"[155]please wait . . ."
30 x$="":b$=x$+"ball":s$=x$+"strike":bs$=x$+"[144] "
35 s=54272:forl=0to24:pokes+l,0:next
40 v=53248:pokev+16,128:fort=0to7:poket+2040,192+t:next
45 fort=12288to12414:poket,0:next
50 fort=12736to12798step3:poket,252:poket+1,0:poket+2,0:next
55 s3=196:tu=1:x=8:y=3:gosub235:pokev+39,1:pokev+40,0:pokev+46,4:pokev+23,128
60 fort=1to5:reada,b:pokea,b:next:fort=1to8:reada(t),b(t),c(t),d(t),e(t):next
65 ifg=1then80
70 fort=12416to12735:reada:poket,a:next
75 fort=49152to49648:reada:poket,a:next
80 sys49478:print"";:l$="[158][209][209][209][209][209][209][209]"
85 fort=1to3:printl$;:next:print:c=c+1:ifc<5then85
90 l$="[129] ":k=k+1:ifk<4then85
95 pi=9:in=1:gosub330:gosub280
100 pokev+21,155:pokev+6,25:pokev+7,189:pokev+14,82:pokev+15,171:gosub310
105 pokev+8,120:pokev+9,189:poke2043,194:poke2044,s3
110 yy=0:xy=rnd(0)*30+1:yx=rnd(0)*3+2:ifyx<3thenyy=xy
115 py=1:ifp$="n"thenpy=0:goto130
120 j1=31-(peek(jv)and31):ifj1<16then120
125 yx=js(j1):poke780,j(j1):jj=49195
130 printbs$:s3=s3+1:fort=1to300:next
135 poke2044,s3:ifs3<198then130
140 pokev,120:pokev+1,200:pokev+31,0:pokev+2,120:pokev+3,215
145 poke49406,192:poke49663,1:pokev+16,128:poke2,yx:poke49230,pzandpy:sys jj
150 a=peek(v+1):x=abs(37-(peek(v))):ifpeek(2043)=195then165
155 ifa<198ora>202thenpi=pi+1:printb$:goto185
160 prints$:goto185
165 ifx>9then185
170 ifa<198ora>202thensys49547:goto185
175 x=19-x*2-yx:ifx<1thenx=1
180 gosub190:poke2044,196:sys49274
185 gosub195:s3=196:goto100
190 poke251,x+yy:poke254,x:return
195 iftu=-1then210
200 x=8:y=3:gosub235:ifpeek(v+16)=131andpeek(v)>85thenbl=bl+1
205 goto215
210 x=3:y=8:gosub235:ifpeek(v+16)=131andpeek(v)>85thenre=re+1
215 ifpi>1then230
220 tu=-tu:jv=jv+tu:pz=pz-tu:iftu=1thenin=in+1:gosub330:ifin>9thengosub240
225 gosub230:pi=10:gosub280:pokev,0:pokev+1,0:pokev+3,0:goto195
230 pi=pi-1:gosub330:return
235 fort=43to45:pokev+t,x:next:pokev+41,y:pokev+42,y:return
240 ifre=blthenreturn
245 fort=55296tot+240:poket,0:next
250 wi$="blue":ifre>bethenwi$="red"
255 print"[158]"," nice game, "wi$" "
260 print""," play again? y/n":poke198,0
265 geta$:ifa$=""then265
270 ifa$<>"n"thenclr:restore:g=1:goto10
275 end
280 pokes+5,35:pokes+6,247:pokes+24,15
285 pokes+12,35 :pokes+13,247
290 fort=1to8:pokes,b(t):pokes+1,a(t):pokes+7,d(t):pokes+8,c(t)
295 pokes+4,17:pokes+11,17
300 fori=1toe(t)*50:next
305 pokes+4,16:pokes+11,16:fori=1to50:next:next
310 pokes+5,192:pokes+6, 64+7:pokes+1,6:pokes,59:pokes+4,128
315 pokes+19,15:pokes+20,248:pokes+14,99:pokes+15,159
320 pokes+12,15:pokes+13,247:pokes+7,128:pokes+8,8:pokes+18,128
325 return
330 print"","[157][157] blue [157][157][157]"bl,,"[157][157] red [157][157][157]"re
335 print,,"[156][157][157] inning [157][157][157]"in:print,,"[156][157][157] pitches left [157][157][157]"pi
340 return
345 data 99,3,0,3,255,3,,,99,2,0,2,255,2,,,99,4,0,5,255,5
350 data 12361,124,12364,248,12288,112,12291,240,12294,224
355 data 0,0,0,0,0,16,195,12,143,6,33,135,25,30,2,28,49,22,96,2
360 data 25,30,21,31,2,21,31,16,195,2,25,30,21,31,8,18,209,15,210,16
365 data 40,190,0,241,239,0,243,126,252,243,187,252,243,240,96,243,163,24,115
370 data 160,8,113,128,120,112,131,192,56,65,0,56,63,0,56,127,128,24,251
375 data 128,31,239,128,31,223,128,7,50,128,0,127,128,0,247,128,1,247,128
380 data 1,227,224,3,243,254,168,0,254,7,1,223,7,3,119,191,3,126,255
385 data 3,187,239,3,240,30,3,147,14,1,128,124,1,131,220,0,193,28,0
390 data 63,56,0,127,184,0,255,240,0,255,224,0,255,224,0,114,128,0,127
395 data 128,0,125,128,0,251,128,0,243,224,1,243,248,168,0,252,0,1,254
400 data 0,3,255,0,2,223,0,255,251,0,255,255,128,2,7,128,14,231,128
405 data 8,7,128,110,224,128,63,192,128,4,1,0,3,254,0,0,62,128,0
410 data 31,196,0,15,238,0,15,254,0,9,62,0,15,244,0,3,240,0,31
415 data 252,168,0,56,60,0,30,126,0,7,239,0,3,251,56,55,127,112,56
420 data 103,112,30,39,120,5,230,28,4,8,14,2,112,7,3,192,3,135,192
425 data 1,207,224,1,247,224,0,251,224,0,125,112,0,62,112,0,20,48,0
430 data 28,60,0,28,28,0,254,0,0,0,0,0,0,0,0,0,0,0,1
435 data 240,0,3,252,0,7,254,0,7,255,0,3,127,128,15,207,128,63,15
440 data 128,2,97,192,3,190,96,0,127,120,0,255,188,1,231,190,3,143,127
445 data 7,13,183,14,24,255,28,57,254,28,33,239,0,7,63,233
450 data 120,169,13,141,20,3,169,192,141,21,3,88,96,162,31,234,173,27
455 data 212,201,240,176,249,168,173,27,212,41,15,153,64,217,234,202,208,236
460 data 76,49,234,234,173,27,212,201,64,144,12,201,192,176,16,169,0,141
465 data 88,192,76,77,192,169,206,141,91,192,76,72,192,169,238,141,91,192
470 data 169,8,141,88,192,173,0,220,41,16,240,32,173,27,212,201,8,176
475 data 3,238,1,208,206,0,208,206,2,208,173,0,208,240,16,164,2,202
480 data 208,253,136,208,250,76,77,192,169,195,32,193,193,96,169,143,141,253
485 data 192,169,16,141,163,192,169,38,141,156,192,169,206,141,182,192,234,198
490 data 251,165,251,208,23,198,80,165,80,208,13,24,102,253,165,253,133,80
495 data 201,0,240,89,133,252,165,254,133,251,198,252,165,252,208,7,165,253
500 data 133,252,238,1,208,238,2,208,238,0,208,173,0,208,208,5,169,131
505 data 141,16,208,32,159,193,173,255,193,240,42,173,30,208,201,129,208,36
510 data 169,17,141,11,212,238,1,208,32,184,193,169,16,141,11,212,206,2
515 data 208,206,0,208,173,1,208,205,3,208,208,231,234,234,234,234,234,96
520 data 76,143,192,173,182,192,201,238,240,28,169,8,133,80,133,253,169,16
525 data 133,251,169,0,141,163,192,169,102,141,156,192,169,238,141,182,192,76
530 data 143,192,169,34,141,253,192,169,193,141,254,192,173,16,208,201,131,208
535 data 7,173,0,208,201,240,176,8,173,1,208,205,3,208,208,1,96,76
540 data 233,193,162,240,169,81,157,63,5,202,208,250,162,160,138,157,255,3
545 data 157,159,4,157,255,215,157,159,216,202,208,241,162,200,169,160,157,31
550 data 7,202,208,250,169,128,141,27,212,141,15,212,169,129,141,18,212,162
555 data 40,169,120,157,47,6,169,4,157,47,218,202,208,243,76,0,192,164
560 data 2,202,208,253,136,208,250,206,0,208,206,2,208,173,2,208,208,237
565 data 96,173,16,208,201,131,208,18,173,0,208,201,96,144,6,169,0,141
570 data 255,193,96,169,1,141,255,193,160,6,202,208,253,136,208,250,96,141
575 data 251,7,173,0,208,201,47,176,4,201,28,176,4,32,139,193,96,169
580 data 1,133,253,133,252,133,80,169,129,141,4,212,141,18,212,169,128,141
585 data 18,212,96,169,128,141,4,212,76,182,192